home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / MacMemory.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  20.9 KB  |  640 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        MacMemory.p
  3.  
  4.      Contains:    Memory Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1985-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT MacMemory;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __MACMEMORY__}
  28. {$SETC __MACMEMORY__ := 1}
  29.  
  30. {$I+}
  31. {$SETC MacMemoryIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __MIXEDMODE__}
  38. {$I MixedMode.p}
  39. {$ENDC}
  40.  
  41.  
  42. {$PUSH}
  43. {$ALIGN MAC68K}
  44. {$LibExport+}
  45.  
  46.  
  47.  
  48. CONST
  49.     maxSize                        = $00800000;                    { Max data block size is 8 megabytes }
  50.  
  51.     defaultPhysicalEntryCount    = 8;
  52.  
  53.                                                                 {  values returned from the GetPageState function  }
  54.     kPageInMemory                = 0;
  55.     kPageOnDisk                    = 1;
  56.     kNotPaged                    = 2;
  57.  
  58.                                                                 {  masks for Zone->heapType field  }
  59.     k32BitHeap                    = 1;                            {  valid in all Memory Managers  }
  60.     kNewStyleHeap                = 2;                            {  true if new Heap Manager is present  }
  61.     kNewDebugHeap                = 4;                            {  true if new Heap Manager is running in debug mode on this heap  }
  62.  
  63. {  Note: The type "Size" moved to Types.h  }
  64.  
  65.  
  66.  
  67. TYPE
  68.     GrowZoneProcPtr = ProcPtr;  { FUNCTION GrowZone(cbNeeded: Size): LONGINT; }
  69.  
  70.     PurgeProcPtr = ProcPtr;  { PROCEDURE Purge(blockToPurge: Handle); }
  71.  
  72.     UserFnProcPtr = Register68kProcPtr;  { PROCEDURE UserFn(parameter: UNIV Ptr); }
  73.  
  74.     GrowZoneUPP = UniversalProcPtr;
  75.     PurgeUPP = UniversalProcPtr;
  76.     UserFnUPP = UniversalProcPtr;
  77.     ZonePtr = ^Zone;
  78.     Zone = RECORD
  79.         bkLim:                    Ptr;
  80.         purgePtr:                Ptr;
  81.         hFstFree:                Ptr;
  82.         zcbFree:                LONGINT;
  83.         gzProc:                    GrowZoneUPP;
  84.         moreMast:                INTEGER;
  85.         flags:                    INTEGER;
  86.         cntRel:                    INTEGER;
  87.         maxRel:                    INTEGER;
  88.         cntNRel:                INTEGER;
  89.         heapType:                SInt8;                                    {  previously "maxNRel", now holds flags (e.g. k32BitHeap) }
  90.         unused:                    SInt8;
  91.         cntEmpty:                INTEGER;
  92.         cntHandles:                INTEGER;
  93.         minCBFree:                LONGINT;
  94.         purgeProc:                PurgeUPP;
  95.         sparePtr:                Ptr;
  96.         allocPtr:                Ptr;
  97.         heapData:                INTEGER;
  98.     END;
  99.  
  100.     THz                                    = ^Zone;
  101.     MemoryBlockPtr = ^MemoryBlock;
  102.     MemoryBlock = RECORD
  103.         address:                Ptr;
  104.         count:                    LONGINT;
  105.     END;
  106.  
  107.     LogicalToPhysicalTablePtr = ^LogicalToPhysicalTable;
  108.     LogicalToPhysicalTable = RECORD
  109.         logical:                MemoryBlock;
  110.         physical:                ARRAY [0..7] OF MemoryBlock;
  111.     END;
  112.  
  113.     PageState                            = INTEGER;
  114.     StatusRegisterContents                = INTEGER;
  115.  
  116. CONST
  117.     uppGrowZoneProcInfo = $000000F0;
  118.     uppPurgeProcInfo = $000000C0;
  119.     uppUserFnProcInfo = $00009802;
  120.  
  121. FUNCTION NewGrowZoneProc(userRoutine: GrowZoneProcPtr): GrowZoneUPP;
  122.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  123.     INLINE $2E9F;
  124.     {$ENDC}
  125.  
  126. FUNCTION NewPurgeProc(userRoutine: PurgeProcPtr): PurgeUPP;
  127.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  128.     INLINE $2E9F;
  129.     {$ENDC}
  130.  
  131. FUNCTION NewUserFnProc(userRoutine: UserFnProcPtr): UserFnUPP;
  132.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  133.     INLINE $2E9F;
  134.     {$ENDC}
  135.  
  136. FUNCTION CallGrowZoneProc(cbNeeded: Size; userRoutine: GrowZoneUPP): LONGINT;
  137.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  138.     INLINE $205F, $4E90;
  139.     {$ENDC}
  140.  
  141. PROCEDURE CallPurgeProc(blockToPurge: Handle; userRoutine: PurgeUPP);
  142.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  143.     INLINE $205F, $4E90;
  144.     {$ENDC}
  145.  
  146. PROCEDURE CallUserFnProc(parameter: UNIV Ptr; userRoutine: UserFnUPP);
  147.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  148.     {To be implemented:  Glue to move parameters into registers.}
  149.     {$ENDC}
  150.  
  151.  
  152. FUNCTION GetApplLimit: Ptr;
  153.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  154.     INLINE $2EB8, $0130;
  155.     {$ENDC}
  156. FUNCTION SystemZone: THz;
  157.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  158.     INLINE $2EB8, $02A6;
  159.     {$ENDC}
  160. FUNCTION ApplicationZone: THz;
  161.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  162.     INLINE $2EB8, $02AA;
  163.     {$ENDC}
  164. FUNCTION GZSaveHnd: Handle;
  165.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  166.     INLINE $2EB8, $0328;
  167.     {$ENDC}
  168. FUNCTION TopMem: Ptr;
  169.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  170.     INLINE $2EB8, $0108;
  171.     {$ENDC}
  172. FUNCTION MemError: OSErr;
  173.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  174.     INLINE $3EB8, $0220;
  175.     {$ENDC}
  176.  
  177.  
  178. FUNCTION GetZone: THz;
  179.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  180.     INLINE $A11A, $2E88;
  181.     {$ENDC}
  182. FUNCTION NewHandle(byteCount: Size): Handle;
  183.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  184.     INLINE $201F, $A122, $2E88;
  185.     {$ENDC}
  186. FUNCTION NewHandleSys(byteCount: Size): Handle;
  187.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  188.     INLINE $201F, $A522, $2E88;
  189.     {$ENDC}
  190. FUNCTION NewHandleClear(byteCount: Size): Handle;
  191.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  192.     INLINE $201F, $A322, $2E88;
  193.     {$ENDC}
  194. FUNCTION NewHandleSysClear(byteCount: Size): Handle;
  195.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  196.     INLINE $201F, $A722, $2E88;
  197.     {$ENDC}
  198. FUNCTION HandleZone(h: Handle): THz;
  199.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  200.     INLINE $205F, $A126, $2E88;
  201.     {$ENDC}
  202. FUNCTION RecoverHandle(p: Ptr): Handle;
  203.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  204.     INLINE $205F, $A128, $2E88;
  205.     {$ENDC}
  206. FUNCTION RecoverHandleSys(p: Ptr): Handle;
  207.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  208.     INLINE $205F, $A528, $2E88;
  209.     {$ENDC}
  210. FUNCTION NewPtr(byteCount: Size): Ptr;
  211.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  212.     INLINE $201F, $A11E, $2E88;
  213.     {$ENDC}
  214. FUNCTION NewPtrSys(byteCount: Size): Ptr;
  215.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  216.     INLINE $201F, $A51E, $2E88;
  217.     {$ENDC}
  218. FUNCTION NewPtrClear(byteCount: Size): Ptr;
  219.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  220.     INLINE $201F, $A31E, $2E88;
  221.     {$ENDC}
  222. FUNCTION NewPtrSysClear(byteCount: Size): Ptr;
  223.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  224.     INLINE $201F, $A71E, $2E88;
  225.     {$ENDC}
  226. FUNCTION PtrZone(p: Ptr): THz;
  227.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  228.     INLINE $205F, $A148, $2E88;
  229.     {$ENDC}
  230. FUNCTION MaxBlock: LONGINT;
  231.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  232.     INLINE $A061, $2E80;
  233.     {$ENDC}
  234. FUNCTION MaxBlockSys: LONGINT;
  235.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  236.     INLINE $A461, $2E80;
  237.     {$ENDC}
  238. FUNCTION StackSpace: LONGINT;
  239.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  240.     INLINE $A065, $2E80;
  241.     {$ENDC}
  242. FUNCTION NewEmptyHandle: Handle;
  243.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  244.     INLINE $A166, $2E88;
  245.     {$ENDC}
  246. FUNCTION NewEmptyHandleSys: Handle;
  247.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  248.     INLINE $A566, $2E88;
  249.     {$ENDC}
  250. PROCEDURE HLock(h: Handle);
  251.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  252.     INLINE $205F, $A029;
  253.     {$ENDC}
  254. PROCEDURE HUnlock(h: Handle);
  255.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  256.     INLINE $205F, $A02A;
  257.     {$ENDC}
  258. PROCEDURE HPurge(h: Handle);
  259.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  260.     INLINE $205F, $A049;
  261.     {$ENDC}
  262. PROCEDURE HNoPurge(h: Handle);
  263.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  264.     INLINE $205F, $A04A;
  265.     {$ENDC}
  266. PROCEDURE HLockHi(h: Handle);
  267.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  268.     INLINE $205F, $A064, $A029;
  269.     {$ENDC}
  270. FUNCTION TempNewHandle(logicalSize: Size; VAR resultCode: OSErr): Handle;
  271.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  272.     INLINE $3F3C, $001D, $A88F;
  273.     {$ENDC}
  274. FUNCTION TempMaxMem(VAR grow: Size): Size;
  275.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  276.     INLINE $3F3C, $0015, $A88F;
  277.     {$ENDC}
  278. FUNCTION TempFreeMem: LONGINT;
  279.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  280.     INLINE $3F3C, $0018, $A88F;
  281.     {$ENDC}
  282. PROCEDURE InitZone(pgrowZone: GrowZoneUPP; cmoreMasters: INTEGER; limitPtr: UNIV Ptr; startPtr: UNIV Ptr);
  283. PROCEDURE SetZone(hz: THz);
  284.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  285.     INLINE $205F, $A01B;
  286.     {$ENDC}
  287. FUNCTION CompactMem(cbNeeded: Size): Size;
  288.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  289.     INLINE $201F, $A04C, $2E80;
  290.     {$ENDC}
  291. FUNCTION CompactMemSys(cbNeeded: Size): Size;
  292.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  293.     INLINE $201F, $A44C, $2E80;
  294.     {$ENDC}
  295. PROCEDURE PurgeMem(cbNeeded: Size);
  296.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  297.     INLINE $201F, $A04D;
  298.     {$ENDC}
  299. PROCEDURE PurgeMemSys(cbNeeded: Size);
  300.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  301.     INLINE $201F, $A44D;
  302.     {$ENDC}
  303. FUNCTION FreeMem: LONGINT;
  304.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  305.     INLINE $A01C, $2E80;
  306.     {$ENDC}
  307. FUNCTION FreeMemSys: LONGINT;
  308.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  309.     INLINE $A41C, $2E80;
  310.     {$ENDC}
  311. PROCEDURE ReserveMem(cbNeeded: Size);
  312.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  313.     INLINE $201F, $A040;
  314.     {$ENDC}
  315. PROCEDURE ReserveMemSys(cbNeeded: Size);
  316.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  317.     INLINE $201F, $A440;
  318.     {$ENDC}
  319. FUNCTION MaxMem(VAR grow: Size): Size;
  320.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  321.     INLINE $225F, $A11D, $2288, $2E80;
  322.     {$ENDC}
  323. FUNCTION MaxMemSys(VAR grow: Size): Size;
  324.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  325.     INLINE $225F, $A51D, $2288, $2E80;
  326.     {$ENDC}
  327. PROCEDURE SetGrowZone(growZone: GrowZoneUPP);
  328.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  329.     INLINE $205F, $A04B;
  330.     {$ENDC}
  331. PROCEDURE MoveHHi(h: Handle);
  332.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  333.     INLINE $205F, $A064;
  334.     {$ENDC}
  335. PROCEDURE DisposePtr(p: Ptr);
  336.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  337.     INLINE $205F, $A01F;
  338.     {$ENDC}
  339. FUNCTION GetPtrSize(p: Ptr): Size;
  340. PROCEDURE SetPtrSize(p: Ptr; newSize: Size);
  341.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  342.     INLINE $201F, $205F, $A020;
  343.     {$ENDC}
  344. PROCEDURE DisposeHandle(h: Handle);
  345.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  346.     INLINE $205F, $A023;
  347.     {$ENDC}
  348. PROCEDURE SetHandleSize(h: Handle; newSize: Size);
  349.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  350.     INLINE $201F, $205F, $A024;
  351.     {$ENDC}
  352. { 
  353.     NOTE
  354.     
  355.     GetHandleSize and GetPtrSize are documented in Inside Mac as returning 0 
  356.     in case of an error, but the traps actually return an error code in D0.
  357.     The glue sets D0 to 0 if an error occured.
  358. }
  359. FUNCTION GetHandleSize(h: Handle): Size;
  360. FUNCTION InlineGetHandleSize(h: Handle): Size;
  361.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  362.     INLINE $205F, $A025, $2E80;
  363.     {$ENDC}
  364. PROCEDURE ReallocateHandle(h: Handle; byteCount: Size);
  365.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  366.     INLINE $201F, $205F, $A027;
  367.     {$ENDC}
  368. PROCEDURE ReallocateHandleSys(h: Handle; byteCount: Size);
  369.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  370.     INLINE $201F, $205F, $A427;
  371.     {$ENDC}
  372. PROCEDURE EmptyHandle(h: Handle);
  373.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  374.     INLINE $205F, $A02B;
  375.     {$ENDC}
  376. PROCEDURE HSetRBit(h: Handle);
  377.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  378.     INLINE $205F, $A067;
  379.     {$ENDC}
  380. PROCEDURE HClrRBit(h: Handle);
  381.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  382.     INLINE $205F, $A068;
  383.     {$ENDC}
  384. FUNCTION HGetState(h: Handle): SInt8;
  385.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  386.     INLINE $205F, $A069, $1E80;
  387.     {$ENDC}
  388. PROCEDURE HSetState(h: Handle; flags: SInt8);
  389.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  390.     INLINE $101F, $205F, $A06A;
  391.     {$ENDC}
  392. PROCEDURE PurgeSpace(VAR total: LONGINT; VAR contig: LONGINT);
  393. {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM }
  394. {
  395.     PurgeSpaceTotal and PurgeSpaceContiguous are currently only implement
  396.     on classic 68K.  The are the same as PurgeSpace() but return just
  397.     one value (either total space purgable or contiguous space purgable).
  398. }
  399. FUNCTION PurgeSpaceTotal: LONGINT;
  400.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  401.     INLINE $A062, $2E88;
  402.     {$ENDC}
  403. FUNCTION PurgeSpaceContiguous: LONGINT;
  404.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  405.     INLINE $A062, $2E80;
  406.     {$ENDC}
  407. FUNCTION PurgeSpaceSysTotal: LONGINT;
  408.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  409.     INLINE $A562, $2E88;
  410.     {$ENDC}
  411. FUNCTION PurgeSpaceSysContiguous: LONGINT;
  412.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  413.     INLINE $A562, $2E80;
  414.     {$ENDC}
  415. {$ENDC}
  416.  
  417. {****************************************************************************
  418.  
  419.     The routines: 
  420.  
  421.         BlockMoveUncached
  422.         BlockMoveDataUncached
  423.         BlockZero
  424.         BlockZeroUncached
  425.     
  426.     are intended for developers writing drivers. They do not exist in 
  427.     “InterfaceLib.” You must link with “DriverServicesLib” to access them.
  428.     
  429.     But since BlockMove and BlockMoveData exist in both “InterfaceLib” and
  430.     “DriverServicesLib”, you cannot link with both libraries.
  431.     
  432. ****************************************************************************}
  433. PROCEDURE BlockMove(srcPtr: UNIV Ptr; destPtr: UNIV Ptr; byteCount: Size);
  434.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  435.     INLINE $201F, $225F, $205F, $A02E;
  436.     {$ENDC}
  437. PROCEDURE BlockMoveData(srcPtr: UNIV Ptr; destPtr: UNIV Ptr; byteCount: Size);
  438.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  439.     INLINE $201F, $225F, $205F, $A22E;
  440.     {$ENDC}
  441. PROCEDURE BlockMoveUncached(srcPtr: UNIV Ptr; destPtr: UNIV Ptr; byteCount: Size); C;
  442. PROCEDURE BlockMoveDataUncached(srcPtr: UNIV Ptr; destPtr: UNIV Ptr; byteCount: Size); C;
  443. PROCEDURE BlockZero(destPtr: UNIV Ptr; byteCount: Size); C;
  444. PROCEDURE BlockZeroUncached(destPtr: UNIV Ptr; byteCount: Size); C;
  445.  
  446. PROCEDURE MaxApplZone;
  447.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  448.     INLINE $A063;
  449.     {$ENDC}
  450. PROCEDURE SetApplBase(startPtr: UNIV Ptr);
  451.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  452.     INLINE $205F, $A057;
  453.     {$ENDC}
  454. PROCEDURE MoreMasters;
  455.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  456.     INLINE $A036;
  457.     {$ENDC}
  458. PROCEDURE SetApplLimit(zoneLimit: UNIV Ptr);
  459.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  460.     INLINE $205F, $A02D;
  461.     {$ENDC}
  462.  
  463.  
  464. PROCEDURE InitApplZone;
  465.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  466.     INLINE $A02C;
  467.     {$ENDC}
  468.  
  469. {  Temporary Memory routines renamed, but obsolete, in System 7.0 and later.  }
  470. PROCEDURE TempHLock(h: Handle; VAR resultCode: OSErr);
  471.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  472.     INLINE $3F3C, $001E, $A88F;
  473.     {$ENDC}
  474. PROCEDURE TempHUnlock(h: Handle; VAR resultCode: OSErr);
  475.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  476.     INLINE $3F3C, $001F, $A88F;
  477.     {$ENDC}
  478. PROCEDURE TempDisposeHandle(h: Handle; VAR resultCode: OSErr);
  479.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  480.     INLINE $3F3C, $0020, $A88F;
  481.     {$ENDC}
  482. FUNCTION TempTopMem: Ptr;
  483.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  484.     INLINE $3F3C, $0016, $A88F;
  485.     {$ENDC}
  486. FUNCTION HoldMemory(address: UNIV Ptr; count: LONGINT): OSErr;
  487.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  488.     INLINE $225F, $205F, $7000, $A05C, $3E80;
  489.     {$ENDC}
  490. FUNCTION UnholdMemory(address: UNIV Ptr; count: LONGINT): OSErr;
  491.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  492.     INLINE $225F, $205F, $7001, $A05C, $3E80;
  493.     {$ENDC}
  494. FUNCTION LockMemory(address: UNIV Ptr; count: LONGINT): OSErr;
  495.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  496.     INLINE $225F, $205F, $7002, $A05C, $3E80;
  497.     {$ENDC}
  498. FUNCTION LockMemoryForOutput(address: UNIV Ptr; count: LONGINT): OSErr;
  499.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  500.     INLINE $225F, $205F, $700A, $A05C, $3E80;
  501.     {$ENDC}
  502. FUNCTION LockMemoryContiguous(address: UNIV Ptr; count: LONGINT): OSErr;
  503.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  504.     INLINE $225F, $205F, $7004, $A05C, $3E80;
  505.     {$ENDC}
  506. FUNCTION UnlockMemory(address: UNIV Ptr; count: LONGINT): OSErr;
  507.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  508.     INLINE $225F, $205F, $7003, $A05C, $3E80;
  509.     {$ENDC}
  510. FUNCTION GetPhysical(VAR addresses: LogicalToPhysicalTable; VAR physicalEntryCount: LONGINT): OSErr;
  511. FUNCTION DeferUserFn(userFunction: UserFnUPP; argument: UNIV Ptr): OSErr;
  512.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  513.     INLINE $201F, $205F, $A08F, $3E80;
  514.     {$ENDC}
  515. FUNCTION DebuggerGetMax: LONGINT;
  516.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  517.     INLINE $7000, $A08D, $2E80;
  518.     {$ENDC}
  519. PROCEDURE DebuggerEnter;
  520.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  521.     INLINE $7001, $A08D;
  522.     {$ENDC}
  523. PROCEDURE DebuggerExit;
  524.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  525.     INLINE $7002, $A08D;
  526.     {$ENDC}
  527. PROCEDURE DebuggerPoll;
  528.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  529.     INLINE $7003, $A08D;
  530.     {$ENDC}
  531. FUNCTION GetPageState(address: UNIV Ptr): PageState;
  532.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  533.     INLINE $205F, $7004, $A08D, $3E80;
  534.     {$ENDC}
  535. FUNCTION PageFaultFatal: BOOLEAN;
  536.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  537.     INLINE $7005, $A08D, $1E80;
  538.     {$ENDC}
  539. FUNCTION DebuggerLockMemory(address: UNIV Ptr; count: LONGINT): OSErr;
  540.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  541.     INLINE $225F, $205F, $7006, $A08D, $3E80;
  542.     {$ENDC}
  543. FUNCTION DebuggerUnlockMemory(address: UNIV Ptr; count: LONGINT): OSErr;
  544.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  545.     INLINE $225F, $205F, $7007, $A08D, $3E80;
  546.     {$ENDC}
  547. FUNCTION EnterSupervisorMode: StatusRegisterContents;
  548.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  549.     INLINE $7008, $A08D, $3E80;
  550.     {$ENDC}
  551.  
  552. { 
  553.     StripAddress and Translate24To32 are traps on classic 68K,
  554.     but macro to the identity function on PowerMacs or other OS's.
  555. }
  556. FUNCTION StripAddress(theAddress: UNIV Ptr): Ptr;
  557.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  558.     INLINE $201F, $A055, $2E80;
  559.     {$ENDC}
  560.  
  561. FUNCTION Translate24To32(addr24: UNIV Ptr): Ptr;
  562.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  563.     INLINE $201F, $A091, $2E80;
  564.     {$ENDC}
  565. FUNCTION HandToHand(VAR theHndl: Handle): OSErr;
  566. FUNCTION PtrToXHand(srcPtr: UNIV Ptr; dstHndl: Handle; size: LONGINT): OSErr;
  567.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  568.     INLINE $201F, $225F, $205F, $A9E2, $3E80;
  569.     {$ENDC}
  570. FUNCTION PtrToHand(srcPtr: UNIV Ptr; VAR dstHndl: Handle; size: LONGINT): OSErr;
  571. FUNCTION HandAndHand(hand1: Handle; hand2: Handle): OSErr;
  572.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  573.     INLINE $225F, $205F, $A9E4, $3E80;
  574.     {$ENDC}
  575. FUNCTION PtrAndHand(ptr1: UNIV Ptr; hand2: Handle; size: LONGINT): OSErr;
  576.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  577.     INLINE $201F, $225F, $205F, $A9EF, $3E80;
  578.     {$ENDC}
  579. {$IFC OLDROUTINENAMES }
  580. FUNCTION ApplicZone: THz;
  581.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  582.     INLINE $2EB8, $02AA;
  583.     {$ENDC}
  584. FUNCTION MFTempNewHandle(logicalSize: Size; VAR resultCode: OSErr): Handle;
  585.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  586.     INLINE $3F3C, $001D, $A88F;
  587.     {$ENDC}
  588. FUNCTION MFMaxMem(VAR grow: Size): Size;
  589.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  590.     INLINE $3F3C, $0015, $A88F;
  591.     {$ENDC}
  592. FUNCTION MFFreeMem: LONGINT;
  593.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  594.     INLINE $3F3C, $0018, $A88F;
  595.     {$ENDC}
  596. PROCEDURE MFTempHLock(h: Handle; VAR resultCode: OSErr);
  597.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  598.     INLINE $3F3C, $001E, $A88F;
  599.     {$ENDC}
  600. PROCEDURE MFTempHUnlock(h: Handle; VAR resultCode: OSErr);
  601.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  602.     INLINE $3F3C, $001F, $A88F;
  603.     {$ENDC}
  604. PROCEDURE MFTempDisposHandle(h: Handle; VAR resultCode: OSErr);
  605.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  606.     INLINE $3F3C, $0020, $A88F;
  607.     {$ENDC}
  608. FUNCTION MFTopMem: Ptr;
  609.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  610.     INLINE $3F3C, $0016, $A88F;
  611.     {$ENDC}
  612. PROCEDURE ResrvMem(cbNeeded: Size);
  613.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  614.     INLINE $201F, $A040;
  615.     {$ENDC}
  616. PROCEDURE DisposPtr(p: Ptr);
  617.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  618.     INLINE $205F, $A01F;
  619.     {$ENDC}
  620. PROCEDURE DisposHandle(h: Handle);
  621.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  622.     INLINE $205F, $A023;
  623.     {$ENDC}
  624. PROCEDURE ReallocHandle(h: Handle; byteCount: Size);
  625.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  626.     INLINE $201F, $205F, $A027;
  627.     {$ENDC}
  628. {$ENDC}  {OLDROUTINENAMES}
  629.  
  630. {$ALIGN RESET}
  631. {$POP}
  632.  
  633. {$SETC UsingIncludes := MacMemoryIncludes}
  634.  
  635. {$ENDC} {__MACMEMORY__}
  636.  
  637. {$IFC NOT UsingIncludes}
  638.  END.
  639. {$ENDC}
  640.